home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / lib / perl / 5.10.1 / POSIX.pm < prev    next >
Encoding:
Perl POD Document  |  2012-12-11  |  1.7 KB  |  78 lines
  1. package POSIX;
  2. use strict;
  3. use warnings;
  4.  
  5. our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
  6.  
  7. our $VERSION = "1.17";
  8.  
  9. use AutoLoader;
  10.  
  11. use XSLoader ();
  12.  
  13. use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
  14.          F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
  15.          O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
  16.          O_WRONLY SEEK_CUR SEEK_END SEEK_SET
  17.          S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
  18.          S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
  19.          S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
  20.  
  21. # Grandfather old foo_h form to new :foo_h form
  22. my $loaded;
  23.  
  24. sub import {
  25.     load_imports() unless $loaded++;
  26.     my $this = shift;
  27.     my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
  28.     local $Exporter::ExportLevel = 1;
  29.     Exporter::import($this,@list);
  30. }
  31.  
  32. sub croak { require Carp;  goto &Carp::croak }
  33. # declare usage to assist AutoLoad
  34. sub usage;
  35.  
  36. XSLoader::load 'POSIX', $VERSION;
  37.  
  38. sub AUTOLOAD {
  39.     no strict;
  40.     no warnings 'uninitialized';
  41.     if ($AUTOLOAD =~ /::(_?[a-z])/) {
  42.     # require AutoLoader;
  43.     $AutoLoader::AUTOLOAD = $AUTOLOAD;
  44.     goto &AutoLoader::AUTOLOAD
  45.     }
  46.     local $! = 0;
  47.     my $constname = $AUTOLOAD;
  48.     $constname =~ s/.*:://;
  49.     my ($error, $val) = constant($constname);
  50.     croak $error if $error;
  51.     *$AUTOLOAD = sub { $val };
  52.  
  53.     goto &$AUTOLOAD;
  54. }
  55.  
  56. package POSIX::SigAction;
  57.  
  58. use AutoLoader 'AUTOLOAD';
  59.  
  60. package POSIX::SigRt;
  61.  
  62. use AutoLoader 'AUTOLOAD';
  63.  
  64. use Tie::Hash;
  65.  
  66. use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
  67. @POSIX::SigRt::ISA = qw(Tie::StdHash);
  68.  
  69. $SIGACTION_FLAGS = 0;
  70.  
  71. tie %POSIX::SIGRT, 'POSIX::SigRt';
  72.  
  73. sub DESTROY {};
  74.  
  75. package POSIX;
  76.  
  77. 1;
  78.